Make sure dump-mode is nil after dump

* lisp/loadup.el (dump-mode): Bind dump-mode to nil before dumping

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 0f0ca15cebcf5d8c712a15c83983243fe7ffb6a8..100c3f700d1f9d269708fd0ca4829de98e8716a5 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -488,8 +488,9 @@ lost after dumping")))
       ;; same as invocation-directory.
       (let (success)
         (unwind-protect
-             (progn
-               (if (member dump-mode '("pdump" "pbootstrap"))
+             (let ((tmp-dump-mode dump-mode)
+                   (dump-mode nil))
+               (if (member tmp-dump-mode '("pdump" "pbootstrap"))
                    (dump-emacs-portable (expand-file-name output invocation-directory))
                  (dump-emacs output "temacs")
                  (message "%d pure bytes used" pure-bytes-used))